home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.02 Feb 87 / Basic Benchmarks / Z-BASIC Programs / pset-ZBASIC < prev    next >
Encoding:
Text File  |  1986-11-04  |  400 b   |  24 lines  |  [TEXT/MSBB]
  1. PRINT "PSET- ZBASIC Version using PLOT X,Y"
  2. COORDINATE WINDOW
  3.  
  4. start = TIMER   ' calculate the overhead
  5. FOR i% = 1 TO 30000
  6. NEXT i%
  7. finish = TIMER
  8. overhead = finish - start
  9.  
  10. start = TIMER
  11. FOR i% = 1 TO 30000
  12.     PLOT100,100
  13. NEXT i%
  14.  
  15. finish = TIMER
  16.  
  17. PRINT "finish = ";finish
  18. PRINT "start  = ";start
  19. PRINT "Overhead = ";overhead
  20.  
  21. PRINT ((finish - start)-overhead); " seconds"
  22. WHILE INKEY$ = "" : WEND
  23.  
  24.